|
Inventor VBA : Stückliste sortieren
rkauskh am 24.03.2013 um 11:09 Uhr (0)
HalloDu vergleichst Strings miteinander und die werden zeichenweise von vorn verglichen. Du könntest versuchen die Positionsnummern vor dem Vergleich mit der CDbl-Funktion in Zahlen zu konvertieren. Ich rate mal hier:Code:While (vSort(i, index - 1) x): i = i + 1: Wend While (vSort(j, index - 1) x): j = j - 1: Wendändern in:Code:While (CDbl(vSort(i, index - 1)) CDbl(x)): i = i + 1: Wend While (CDbl(vSort(j, index - 1)) CDbl(x)): j = j - 1: Wend------------------MfGRalf
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : Skizzenobjekte in Ansichtsmittelpunkt verschieben
rkauskh am 02.09.2024 um 14:48 Uhr (1)
MoinAlso vom Ablauf würde ich sagen, das Camera.Target des aktiven Views ist ein Point. Den kann man mit ModelToSketchSpace in einen Point2D im Skizzenraum konvertieren und dann ist der Vektor gleich den X,Y-Koordinaten des Punktes, oder?Das Makro setzt ein Bauteil mit aktiver Skizzenbearbeitung voraus.EDIT: Nö, zu früh gefreut. Die Kamera behält die Werte bevor die Skizzenumgebung aktiviert wurde. Code:Option ExplicitPrivate Sub sketchvector()Dim oApp As Inventor.ApplicationSet oApp = ThisApplicationDim ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : Blattformate der IDWs in übergeordneter Stückliste anzeigen?
rkauskh am 07.02.2012 um 23:34 Uhr (0)
Hifolgender VBA-Code schreibt das iProp, wenn es nicht existiert oder der Inhalt vom aktuellen Wert abweicht:Code:Private Sub Blattformat()Dim oDoc As DrawingDocumentSet oDoc = ThisApplication.ActiveDocumentDim sBlattformat As StringDim eBlattformat As DrawingSheetSizeEnumeBlattformat = oDoc.Sheets.Item(1).SizeSelect Case eBlattformat Case kCustomDrawingSheetSize: sBlattformat = "Custom" Case kADrawingSheetSize: sBlattformat = "A" Case kBDrawingSheetSize: sBlattformat = "B" Case kCDrawingSheetSize: sBl ...
| | In das Form Inventor VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
